inherited frmChargeMeterHomeCTP: TfrmChargeMeterHomeCTP
  Left = 450
  Top = 222
  Width = 618
  Height = 184
  AutoSize = True
  Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1077' '#1087#1086' '#1089#1095#1077#1090#1095#1080#1082#1091' '#1074' '#1076#1086#1084#1072#1093' '#1089' '#1062#1058#1055
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 130
    Width = 610
    Align = alTop
    inherited BitBtn1: TBitBtn
      Left = 403
    end
    inherited BitBtn2: TBitBtn
      Left = 505
    end
  end
  inherited ToolBar1: TToolBar
    Top = 157
    Width = 610
    Height = 0
    Enabled = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 610
    Height = 130
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 296
      Top = 18
      Width = 139
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077' '#1074#1086#1076#1099' ('#1084'.'#1082#1091#1073'.)'
    end
    object Label2: TLabel
      Left = 284
      Top = 48
      Width = 151
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077' '#1090#1077#1087#1083#1072' ('#1043#1050#1072#1083#1083')'
    end
    object Label3: TLabel
      Left = 284
      Top = 75
      Width = 151
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1077#1088#1080#1086#1076' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
    end
    object Label4: TLabel
      Left = 284
      Top = 103
      Width = 151
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1044#1072#1090#1072' '#1087#1088#1086#1074#1077#1076#1077#1085#1080#1103
    end
    inline fraAddress: TfraAddress
      Left = 0
      Top = 0
      Width = 274
      Height = 130
      Align = alLeft
      TabOrder = 0
      inherited SearchBox: TGroupBox
        Width = 274
        Height = 130
        Constraints.MinHeight = 130
        inherited Label6: TLabel
          Top = 226
          Enabled = False
          Visible = False
        end
        inherited Label1: TLabel
          Top = 23
        end
        inherited Label2: TLabel
          Top = 47
        end
        inherited Label3: TLabel
          Top = 71
        end
        inherited Label4: TLabel
          Top = 226
          Enabled = False
          Visible = False
        end
        inherited Label5: TLabel
          Top = 226
          Enabled = False
          Visible = False
        end
        inherited FindBtn: TButton
          Left = 68
          Top = 95
        end
        inherited ClearBtn: TButton
          Left = 176
          Top = 95
        end
        inherited AddBtn: TButton
          Top = 268
          Enabled = False
          TabStop = False
          Visible = False
        end
        inherited TownBox: TDBLookupComboboxEh
          Top = 20
        end
        inherited StreetBox: TDBLookupComboboxEh
          Top = 44
        end
        inherited HouseBox: TDBLookupComboboxEh
          Top = 68
        end
        inherited AppartBox: TDBLookupComboboxEh
          Top = 226
          Enabled = False
          Visible = False
        end
        inherited NLSEdit: TDBEditEh
          Top = 226
          Enabled = False
          Visible = False
        end
        inherited NameEdit: TDBEditEh
          Top = 226
          Enabled = False
          Visible = False
        end
      end
      inherited QStreets: TpFIBDataSet
        Transaction = ReadTransaction
        Database = MAINDM.pMainDatabase
        UpdateTransaction = ReadTransaction
      end
      inherited QHouses: TpFIBDataSet
        Transaction = ReadTransaction
        Database = MAINDM.pMainDatabase
        UpdateTransaction = ReadTransaction
      end
      inherited QTowns: TpFIBDataSet
        Transaction = ReadTransaction
        Database = MAINDM.pMainDatabase
        UpdateTransaction = ReadTransaction
      end
      inherited QApparts: TpFIBDataSet
        Transaction = ReadTransaction
        UpdateTransaction = ReadTransaction
      end
    end
    object dbnPotrV: TDBNumberEditEh
      Left = 440
      Top = 16
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      TabOrder = 1
      Visible = True
    end
    object dbnPotrQ: TDBNumberEditEh
      Left = 440
      Top = 44
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DecimalPlaces = 4
      EditButtons = <>
      Flat = True
      TabOrder = 2
      Visible = True
    end
    object dblcBMonth: TDBComboBoxEh
      Left = 440
      Top = 72
      Width = 83
      Height = 19
      AlwaysShowBorder = True
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Items.Strings = (
        #1103#1085#1074#1072#1088#1100
        #1092#1077#1074#1088#1072#1083#1100
        #1084#1072#1088#1090
        #1072#1087#1088#1077#1083#1100
        #1084#1072#1081
        #1080#1102#1085#1100
        #1080#1102#1083#1100
        #1072#1074#1075#1091#1089#1090
        #1089#1077#1085#1090#1103#1073#1088#1100
        #1086#1082#1090#1103#1073#1088#1100
        #1085#1086#1103#1073#1088#1100
        #1076#1077#1082#1072#1073#1088#1100)
      KeyItems.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12')
      ParentFont = False
      TabOrder = 3
      Visible = True
    end
    object dbBYear: TDBNumberEditEh
      Left = 529
      Top = 72
      Width = 73
      Height = 19
      AlwaysShowBorder = True
      DecimalPlaces = 0
      EditButtons = <
        item
          Style = ebsMinusEh
          Width = 16
        end
        item
          Style = ebsPlusEh
          Width = 16
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      MaxValue = 2010.000000000000000000
      MinValue = 2005.000000000000000000
      ParentFont = False
      TabOrder = 4
      Value = 2008.000000000000000000
      Visible = True
    end
    object dbtChargeDate: TDBDateTimeEditEh
      Left = 440
      Top = 100
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 5
      Visible = True
    end
  end
  object QHomeMeterV: TpFIBQuery
    Transaction = WriteTransaction
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE PROC_CHARGE_HOMEMETER_'
      '    PROC_CHARGE_HOMEMETER_V(:PBUILD_ID,'
      '    :PPOTR,'
      '    :PMONTH,'
      '    :PYEAR,'
      '    :PDOCDATE,'
      '    :PDOCNO)  ')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 388
    Top = 16
    qoStartTransaction = True
  end
  object QHomeMeterQ: TpFIBQuery
    Transaction = WriteTransaction
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE PROC_CHARGE_HOMEMETER_'
      '    PROC_CHARGE_HOMEMETER_Q(:PBUILD_ID,'
      '    :PPOTR,'
      '    :PMONTH,'
      '    :PYEAR,'
      '    :PDOCDATE,'
      '    :PDOCNO)  ')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 388
    Top = 48
    qoStartTransaction = True
  end
  object ReadTransaction: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 348
    Top = 16
  end
  object WriteTransaction: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 348
    Top = 48
  end
end
